3
How do I change the control's border, using your EBN files

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
	Send Destroy to hoAppearance
	Set ComAppearance to |CI$1000000
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance1
	Variant voAppearance2
	Get ComVisualAppearance to voAppearance2
	Handle hoAppearance2
	Get Create (RefClass(cComAppearance)) to hoAppearance2
	Set pvComObject of hoAppearance2 to voAppearance2
		Get ComAdd of hoAppearance2 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance2
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
2
How do I remove the control's border

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAppearance to OLENone2
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Set ComFormat to "1,2,3,4,(5/6/7/8)"
	Set ComDebug to True
	Send ComEndUpdate
End_Procedure
1
How can I change the control's font

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Variant voAppearance
	Get ComVisualAppearance to voAppearance
	Handle hoAppearance
	Get Create (RefClass(cComAppearance)) to hoAppearance
	Set pvComObject of hoAppearance to voAppearance
		Get ComAdd of hoAppearance 4 "c:\exontrol\images\border.ebn" to Nothing
	Send Destroy to hoAppearance
	Variant voAppearance1
	Get ComVisualAppearance to voAppearance1
	Handle hoAppearance1
	Get Create (RefClass(cComAppearance)) to hoAppearance1
	Set pvComObject of hoAppearance1 to voAppearance1
		Get ComAdd of hoAppearance1 5 "CP:4 1 1 -1 -1" to Nothing
	Send Destroy to hoAppearance1
	Set ComBackColorPanels to |CI$5000000
	Variant f
	Get Comcreateobject "StdFont" to f
		Set ComName to "Verdana"
		Set ComSize to 12
	Set ComFont to f
	Set ComFormat to ""static text"[fg=255][a=17],11,22,(33/44)"
	Send ComEndUpdate
End_Procedure